home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / cdity / newedit116.lha / Install < prev    next >
Text File  |  1995-10-09  |  24KB  |  643 lines
  1. ; $VER: Install NewEdit 1.15 ⌐ Uwe R÷hm (20. September 1995)
  2.  
  3. (complete 0)
  4.  
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;
  7. ; NAMING SECTION
  8. ;
  9. ; first of all I set some vars to file names. This will help me changing
  10. ; names easily.
  11. ;
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13. ;
  14. ( set #NewEdit "NewEdit" )           ; name of the game
  15. ( set #Calculus "calculus.library" ) ; name of help library
  16.  
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. ;
  19. ; LANGUAGE SECTION
  20. ;
  21. ; to support more than only one language, there is a special section for
  22. ; each supported language.
  23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  24. ;
  25. (if (AND (<> @language "english") (<> @language "deutsch"))
  26.    (set @language "english")
  27. )
  28.  
  29. ;=============================================================================
  30. ; English strings
  31. ;=============================================================================
  32. (if (= @language "english") (
  33.  
  34.    (set default_lang 4)
  35.  
  36.    (set #bad-kick
  37.    (cat "You must use at least Kickstart 2.0 to install " #NewEdit
  38.    ))
  39.  
  40.    (set #introduction
  41.    (cat "This program will install the commodity " #NewEdit ", "
  42.         "which improves the functionality of all string gadgets "
  43.         "in the system. Please read the guide for details.\n\n"
  44.         "The installation takes care of the operating system "
  45.         "version and doesn't change any important file or directory "
  46.         "without your permission."
  47.    ))
  48.  
  49.    (set #ask-installdir
  50.    (cat "Please choose a directory, where " #NewEdit
  51.         " should be installed."
  52.    ))
  53.  
  54.    (set #ask-installdir-help
  55.    (cat "You have to choose a directory, where the software will be copied. "
  56.         "This directory must exist. Please create one, if necessary. "
  57.    ))
  58.  
  59.    (set #ask-catalogdir
  60.    (cat "Please choose a directory, where " #NewEdit "'s catalog"
  61.         " should be installed."
  62.    ))
  63.  
  64.    (set #ask-catalogdir-help
  65.    (cat "You have to choose a directory, where the catalog file will be copied. "
  66.         "This directory must exist. Please create one, if necessary. "
  67.    ))
  68.  
  69.    (set #ask-guidedir
  70.    (cat "Please choose a directory, where " #NewEdit "'s documentation"
  71.         " should be installed."
  72.    ))
  73.  
  74.    (set #ask-guidedir-help
  75.    (cat "You have to choose a directory, where the documentation will be copied. "
  76.         "This directory must exist. Please create one, if necessary.\n\n"
  77.    ))
  78.  
  79.    (set #ask-libsdir
  80.    (cat "Please choose the directory, where the " #Calculus
  81.         " should be installed."
  82.    ))
  83.  
  84.    (set #ask-libsdir-help
  85.    (cat "You have to choose a directory, where the " #Calculus " will be copied. "
  86.         "Normally this will be \"libs:\".\n\n"
  87.         "The choosed directory must exist. Please create one, if necessary."
  88.    ))
  89.  
  90.    (set #ask-tooltypemask
  91.    (cat "Which options of " #NewEdit " do you want to enable?"
  92.    ))
  93.  
  94.    (set #ask-tooltypemask-help
  95.    (cat #NewEdit " can be configurated with 10 options. "
  96.         "Here the first four are presented.\n\n"
  97.         "As some key combinations may be in use by other tools too, "
  98.         "you can disable the use of the right Alt or the right Amiga key as "
  99.         "command invoking key. The same holds for the control key. "
  100.         "Additionally you can switch off the Escape key, which " #NewEdit
  101.         " would normally use to leave a string gadget."
  102.    ))
  103.  
  104.    (set #No-Right-Alt   "Don't use right Alt key")
  105.    (set #No-Right-Amiga "Don't use right Amiga key")
  106.    (set #No-Control     "Disable Control-key-commands")
  107.    (set #No-Escape      "No leaving of gadgets with Escape")
  108.    
  109.    (set #ask-clipunit
  110.    (cat "Please specify the clipboard unit to use for the "
  111.         "copy/paste feature of " #NewEdit
  112.    ))
  113.    
  114.    (set #ask-clipunit-help
  115.    (cat #NewEdit " extends the string gadgets so that text can "
  116.         "be exchanged between them and the clipboard. The clipboard "
  117.         "is organised into different units from 0 to 255. Unit 0 "
  118.         "is the default unit used by most programs and AmigaOS itself. "
  119.         "I would recommend to leave the clip unit 0 which is the "
  120.         "default value in " #NewEdit"."
  121.    ))
  122.  
  123.    (set #ask-keys 
  124.    (cat "Do you want to customize the command keys of " #NewEdit "?" 
  125.    ))
  126.    (set #ask-keys-help 
  127.    (cat "There are five functions of " #NewEdit " for which you can specify "
  128.         "the command keys. If you answer with 'Yes' you will be asked for "
  129.         "these five keys. Else the default settings are used."
  130.    ))
  131.  
  132.    (set #ask-calc-key
  133.    (cat "Which key should be used to evaluate a string gadgets contents "
  134.         "as mathematical expression?"
  135.    ))
  136.  
  137.    (set #ask-calc-key-help
  138.    (cat "Please enter one single character as the command key to evaluate "
  139.         "a string gadgets contents as a mathematical expression. "
  140.         "Normally this function will be invoked with the combination 'right Alt e' "
  141.         "or 'right Amiga e'.\n\n"
  142.         "Currently you can only enter one character to alter the command key "
  143.         "of the function. Especially the command qualifiers 'right Alt' or "
  144.         "'right Amiga' can not bechanged."
  145.    ))
  146.  
  147.    (set #ask-case-key
  148.    (cat "With which key do you want to toggle the case of single characters?"
  149.    ))
  150.  
  151.    (set #ask-case-key-help
  152.    (cat "Please enter one single character as the command key to toggle "
  153.         "the case of characters in a string gadget. "
  154.         "Normally this function will be invoked with the combination 'right Alt g' "
  155.         "or 'right Amiga g'.\n\n"
  156.         "Currently you can only enter one character to alter the command key "
  157.         "of the function. Especially the command qualifiers 'right Alt' or "
  158.         "'right Amiga' can not bechanged."
  159.    ))
  160.  
  161.    (set #ask-count-key
  162.    (cat "With which key do you want to increase and decrease a numbered file name?"
  163.    ))
  164.  
  165.    (set #ask-count-key-help
  166.    (cat "Please enter one single character as the command key to increase or "
  167.         "decrease the count of a numbered file name."
  168.         "Normally this function will be invoked with the combination 'right Alt i' "
  169.         "or 'right Amiga i'.\n\n"
  170.         "Currently you can only enter one character to alter the command key "
  171.         "of the function. Especially the command qualifiers 'right Alt' or "
  172.         "'right Amiga' can not bechanged."
  173.    ))
  174.  
  175.    (set #ask-date-key
  176.    (cat "Which key should insert the current date?"
  177.    ))
  178.  
  179.    (set #ask-date-key-help
  180.    (cat "Please enter one single character as the command key to insert "
  181.         "the current date in a string gadget. "
  182.         "Normally this function will be invoked with the combination 'right Alt d' "
  183.         "or 'right Amiga d'.\n\n"
  184.         "Currently you can only enter one character to alter the command key "
  185.         "of the function. Especially the command qualifiers 'right Alt' or "
  186.         "'right Amiga' can not bechanged."
  187.    ))
  188.  
  189.    (set #ask-time-key
  190.    (cat "Which key should insert the current time?"
  191.    ))
  192.  
  193.    (set #ask-time-key-help
  194.    (cat "Please enter one single character as the command key to insert "
  195.         "the current time into a string gadget."
  196.         "Normally this function will be invoked with the combination 'right Alt t' "
  197.         "or 'right Amiga t'.\n\n"
  198.         "Currently you can only enter one character to alter the command key "
  199.         "of the function. Especially the command qualifiers 'right Alt' or "
  200.         "'right Amiga' can not bechanged."
  201.    ))
  202.  
  203.    )
  204. ) ; if english
  205.  
  206. ;=============================================================================
  207. ; German strings
  208. ;=============================================================================
  209. (if (= @language "deutsch") (
  210.  
  211.    (set default_lang 2)
  212.  
  213.    (set #bad-kick
  214.    (cat "Sie mⁿssen Kickstart 2.0 (oder h÷her) zum Installieren von "
  215.         #NewEdit " benutzen."
  216.    ))
  217.  
  218.    (set #introduction
  219.    (cat "Sie installieren nun das Hilfsprogramm " #NewEdit ", "
  220.         "das die FΣhigkeiten aller Texteingabefelder im System "
  221.         "erweitert. NΣheres steht in der beiliegenden Anleitung.\n\n"
  222.         "Die Installation nimmt alle notwendigen Schritte vor "
  223.         "und beachtet auch die aktuelle Betriebssystemversion. "
  224.         "Es werden bei der Installation ohne Nachfrage keine System-Dateien "
  225.         "verΣndert."
  226.    ))
  227.  
  228.    (set #ask-installdir
  229.    (cat "Bitte geben Sie ein Verzeichnis an, in welchem " #NewEdit
  230.         " installiert werden soll."
  231.    ))
  232.  
  233.    (set #ask-installdir-help
  234.    (cat #NewEdit " wird in das Verzeichnis kopiert, das Sie angeben. "
  235.         "Sollte das Verzeichnis noch nicht existieren, legen Sie "
  236.         "es bitte an."
  237.    ))
  238.  
  239.    (set #ask-catalogdir
  240.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die Catalog-Datei "
  241.         "zu " #NewEdit " kopiert werden soll."
  242.    ))
  243.  
  244.    (set #ask-catalogdir-help
  245.    (cat "Damit " #NewEdit " deutsche Fehlermeldungen und Texte ausgibt, "
  246.         "ben÷tigt es seine deutsche Catalog-Datei. Diese wird normalerweise "
  247.         "in \"Locale:Catalogs/deutsch/\" gespeichert.\n\n"
  248.         "Sollte das gewⁿnschte Verzeichnis noch nicht existieren, legen Sie "
  249.         "es bitte an."
  250.    ))
  251.  
  252.    (set #ask-guidedir
  253.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die Dokumentation "
  254.         "zu " #NewEdit " kopiert werden soll."
  255.    ))
  256.  
  257.    (set #ask-guidedir-help
  258.    (cat "Die Dokumentation liegt im AmigaGuide-Format vor. Sie wird "
  259.         "in das Verzeichnis kopiert, das Sie angeben. "
  260.         "Sollte das Verzeichnis noch nicht existieren, legen Sie "
  261.         "es bitte an."
  262.    ))
  263.  
  264.    (set #ask-libsdir
  265.    (cat "Bitte geben Sie ein Verzeichnis an, in welches die " #Calculus
  266.        " kopiert werden soll."
  267.    ))
  268.  
  269.    (set #ask-libsdir-help
  270.    (cat "Um mathematische Formeln in Eingabefeldern ausrechnen zu k÷nnen, "
  271.         "ben÷tigt " #NewEdit " die " #Calculus ". Das Programm kann aber auch "
  272.         "ohne diese Library verwendet werden.\n\n"
  273.         "Die " #Calculus " wird in das Verzeichnis kopiert, das Sie angeben, "
  274.         "sofern nicht bereits eine neuere Version installiert ist. "
  275.         "Normalerweise sollte es \"libs:\" sein. Sollte das gewⁿnschte "
  276.         "Verzeichnis noch nicht existieren, legen Sie es bitte an."
  277.    ))
  278.  
  279.    (set #ask-tooltypemask
  280.    (cat "Welche Optionen von " #NewEdit " wollen Sie Σndern?"
  281.    ))
  282.    (set #ask-tooltypemask-help
  283.    (cat #NewEdit " kann mit insgesamt zehn Optionen konfiguriert werden. "
  284.         "Sie k÷nnen hier die ersten vier an Ihre Bedⁿrfnisse anpassen.\n\n"
  285.         "Da einige Tastenkombinationen auch von anderen Programmen belegt "
  286.         "sein k÷nnen, k÷nnen Sie die Verwendung der rechten Alt und/oder "
  287.         "der rechten Amiga Taste als Kommandotaste abschalten. Dasselbe "
  288.         "gilt fⁿr die zusΣtzlichen Funktionen von " #NewEdit ", die mit "
  289.         "der Control-Taste aufgerufen werden. Au▀erdem k÷nnen Sie verhindern, "
  290.         "da▀ man mit der Escape-Taste ein Texteingabefeld verlassen kann."
  291.    ))
  292.  
  293.    (set #No-Right-Alt   "Rechte Alt-Taste nicht verwenden")
  294.    (set #No-Right-Amiga "Rechte Amiga-Taste nicht verwenden")
  295.    (set #No-Control     "Control-Tastenkomandos nicht verwenden")
  296.    (set #No-Escape      "Kein Eingabeende mit Escape")
  297.    
  298.    (set #ask-clipunit
  299.    (cat "Bitte geben Sie die Einheit des Clipboards an, die "
  300.         "fⁿr das Kopieren von Text zwischen Eingabefeldern "
  301.         "verwendet werden soll."
  302.    ))
  303.    
  304.    (set #ask-clipunit-help
  305.    (cat #NewEdit " erweitert Texteingabefelder um die M÷glichkeit, "
  306.         "Texte zwischen ihnen ⁿber das Clipboard auszutauschen. Das "
  307.         "Clipboard bietet dazu mehrere Einheiten an, in die Texte "
  308.         "gespeichert werden k÷nnen. Per Voreinstellung wⁿrde " #NewEdit
  309.         " Einheit 0 verwenden, die auch sonst im System im allgemeinen "
  310.         "zum Datenaustausch benutzt wird."
  311.    ))
  312.  
  313.    (set #ask-keys 
  314.    (cat "M÷chten Sie " #NewEdit "s Tastenbelegung Σndern?" 
  315.    ))
  316.    (set #ask-keys-help 
  317.    (cat "Derzeit k÷nnen die Tasten von fⁿnf Funktionen, die " #NewEdit 
  318.         " anbietet, frei konfiguriert werden. Wenn Sie jetzt mit 'Ja' "
  319.         "antworten, werden Sie nach den alternativen Belegungen fⁿr diese "
  320.         "fⁿnf Funktionen befragt. Sonst benutzt " #NewEdit " die Vorgabewerte.\n\n"
  321.         "Fⁿr alle Tasten kann derzeit nur ein Buchstabe angegeben werden, "
  322.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  323.         "nicht geΣndert werden." 
  324.    ))
  325.  
  326.    (set #ask-calc-key
  327.    (cat "Mit welche Taste soll das Auswerten des Inhalts eines Textfeldes "
  328.         "als mathematischer Ausdruck gestartet werden?"
  329.    ))
  330.  
  331.    (set #ask-calc-key-help
  332.    (cat "Bitte geben Sie die Taste an, mit der der jeweilige Inhalt eines "
  333.         "Texteingabefeldes als mathematischer Ausdruck ausgewertet und "
  334.         "durch sein Ergebnis ersetzt werden soll. Normalerweise wird dies "
  335.         "mit der Kombination 'rechte Alt e' oder 'rechte Amiga e' erreicht.\n\n"
  336.         "Sie k÷nnen derzeit nur den einen Buchstaben verΣndern, "
  337.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  338.         "nicht geΣndert werden." 
  339.    ))
  340.  
  341.    (set #ask-case-key
  342.    (cat "Mit welche Taste wollen Sie die Gro▀-/Kleinschreibung "
  343.         "von Buchstaben Σndern k÷nnen?"
  344.    ))
  345.  
  346.    (set #ask-case-key-help
  347.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie zwischen Gro▀- "
  348.         "und Kleinschreibung einzelner Buchstaben umschalten wollen. "
  349.         "Normalerweise wird dies mit der Kombination 'rechte Alt g' oder "
  350.         "'rechte Amiga g' erreicht.\n\n"
  351.         "Sie k÷nnen derzeit nur den einen Buchstaben verΣndern, "
  352.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  353.         "nicht geΣndert werden." 
  354.    ))
  355.  
  356.    (set #ask-count-key
  357.    (cat "Mit welche Taste wollen Sie nummerierte Dateinamen erh÷hen, "
  358.         "bzw. erniedrigen?"
  359.    ))
  360.  
  361.    (set #ask-count-key-help
  362.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie die Nummer "
  363.         "eines durchnummerierten Dateinamens hoch- und runterzΣhlen k÷nnen. "
  364.         "Normalerweise wird dies mit der Kombination 'rechte Alt i' oder "
  365.         "'rechte Amiga i' erreicht.\n\n"
  366.         "Sie k÷nnen derzeit nur den einen Buchstaben verΣndern, "
  367.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  368.         "nicht geΣndert werden." 
  369.    ))
  370.  
  371.    (set #ask-date-key
  372.    (cat "Mit welche Taste wollen Sie das aktuelle Datum einfⁿgen?"
  373.    ))
  374.  
  375.    (set #ask-date-key-help
  376.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie das jeweils "
  377.         "aktuelle Datum in ein Texteingabefeld einfⁿgen k÷nnen. "
  378.         "Normalerweise ist dies mit der Kombination 'rechte Alt d' oder "
  379.         "'rechte Amiga d' m÷glich.\n\n"
  380.         "Sie k÷nnen derzeit nur den einen Buchstaben verΣndern, "
  381.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  382.         "nicht geΣndert werden." 
  383.    ))
  384.  
  385.    (set #ask-time-key
  386.    (cat "Mit welche Taste wollen Sie die aktuelle Uhrzeit einfⁿgen?"
  387.    ))
  388.  
  389.    (set #ask-time-key-help
  390.    (cat "Bitte geben Sie eine einzelne Taste an, mit der Sie die jeweils "
  391.         "aktuelle Uhrzeit in ein Texteingabefeld einfⁿgen k÷nnen. "
  392.        "Normalerweise ist dies mit der Kombination 'rechte Alt t' oder "
  393.         "'rechte Amiga t' m÷glich.\n\n"
  394.         "Sie k÷nnen derzeit nur den einen Buchstaben verΣndern, "
  395.         "die jeweiligen Kommandotasten (rechte Alt und rechte Amiga) k÷nnen "
  396.         "nicht geΣndert werden." 
  397.    ))
  398.    )
  399. ) ; if deutsch
  400.  
  401.  
  402. ;=============================================================================
  403. ; make sure we are running under V37
  404.  
  405. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  406.  
  407. ;******************************************************************
  408. ;******************* FULL INSTALL *********************************
  409. ;******************************************************************
  410.  
  411. ;=============================================================================
  412. ; say hi!
  413. ;=============================================================================
  414. (welcome)
  415.  
  416. ;=============================================================================
  417. ; what we will do the next time together
  418. ;=============================================================================
  419. (message #introduction)
  420.  
  421. ;=============================================================================
  422. ; first we will get the dirs we need
  423. ;=============================================================================
  424. (set old_level @user-level)
  425. (set sourcedir (pathonly @icon))
  426. (set #defaulttarget "Sys:WBStartup")
  427. (set target (askdir (prompt  #ask-installdir)
  428.                     (help    #ask-installdir-help)
  429.                     (default #defaulttarget)
  430.             )
  431. )
  432. (set @default-dest target)
  433.  
  434. ;=============================================================================
  435. ; copy the program itself
  436. ;=============================================================================
  437. (copyfiles (source "NewEdit")
  438.            (dest   target)
  439.            (infos)
  440. )
  441. (tooltype (noposition)
  442.           (dest        (tackon target #NewEdit))
  443. )
  444. (complete 10)
  445.  
  446. ;=============================================================================
  447. ; copy the catalog file(s)
  448. ;=============================================================================
  449. (if (<> @language "english") 
  450.   (
  451.  
  452.     (set #defcattarget (tackon "Locale:Catalogs/" @language))
  453.     (set cattarget (askdir (prompt  #ask-catalogdir)
  454.                            (help    #ask-catalogdir-help)
  455.                            (default #defcattarget)
  456.                    )
  457.     )
  458.     (copyfiles (source (tackon "catalogs/" (tackon @language "NewEdit.catalog")))
  459.                (dest   cattarget)
  460.     )
  461.   )
  462. )
  463. (complete 20)
  464.  
  465. ;=============================================================================
  466. ; ask for the options to use
  467. ;=============================================================================
  468. (if (>= @user-level 1)
  469.   (
  470.     (set tooltypemask (askoptions (prompt  #ask-tooltypemask)
  471.                                   (help    #ask-tooltypemask-help)
  472.                                   (choices #No-Right-Alt
  473.                                            #No-Right-Amiga
  474.                                            #No-Control
  475.                                            #No-Escape
  476.                                   )
  477.                                   (default %0000)
  478.                       )
  479.     )
  480.     (if (IN tooltypemask 0)
  481.         (tooltype (settooltype "NOALT" "1")
  482.                   (dest        (tackon target #NewEdit))
  483.         ) 
  484.     )
  485.     (if (IN tooltypemask 1)
  486.         (tooltype (settooltype "NOAMIGA" "1")
  487.                   (dest        (tackon target #NewEdit))
  488.         ) 
  489.     )
  490.     (if (IN tooltypemask 2)
  491.         (tooltype (settooltype "NOCONTROL" "1")
  492.                   (dest        (tackon target #NewEdit))
  493.         ) 
  494.     )
  495.     (if (IN tooltypemask 3)
  496.         (tooltype (settooltype "NOESC" "1")
  497.                   (dest        (tackon target #NewEdit))
  498.         ) 
  499.     )
  500.  
  501.     (complete 30)
  502.  
  503.     ;=============================================================================
  504.     ; ask for the clipboard unit
  505.     ;=============================================================================
  506.     (set unit     (asknumber  (prompt  #ask-clipunit)
  507.                               (help    #ask-clipunit-help)
  508.                               (range   0 255)
  509.                               (default 0)
  510.                   )
  511.     )
  512.     (if (<> unit 0)
  513.         (tooltype (settooltype "CLIPUNIT" ("%s" unit))
  514.                   (dest        (tackon target #NewEdit))
  515.         ) 
  516.     )
  517.  
  518.     (complete 40)
  519.  
  520.     ;=========================================================================
  521.     ; ask for alternate keys
  522.     ;=========================================================================
  523.     (if (askbool    (prompt  #ask-keys)
  524.                     (help    #ask-keys-help)
  525.                     (default 0)
  526.         )
  527.     (
  528.         ;=====================================================================
  529.         ; ask for Calculus-Key
  530.         ;=====================================================================
  531.         (set key (askstring (prompt #ask-calc-key)
  532.                             (help   #ask-calc-key-help)
  533.                             (default "e")
  534.                  )
  535.         )
  536.         (if (<> key "e")
  537.             (tooltype (settooltype "CALCKEY" key)
  538.                       (dest        (tackon target #NewEdit))
  539.             )
  540.         ) 
  541.         (complete 48)
  542.  
  543.         ;=====================================================================
  544.         ; ask for Case-Key
  545.         ;=====================================================================
  546.         (set key (askstring (prompt #ask-case-key)
  547.                             (help   #ask-case-key-help)
  548.                             (default "g")
  549.                      )
  550.         )
  551.         (if (<> key "g")
  552.             (tooltype (settooltype "CASEKEY" key)
  553.                       (dest        (tackon target #NewEdit))
  554.             )
  555.         ) 
  556.         (complete 56)
  557.  
  558.         ;=====================================================================
  559.         ; ask for Count-Key
  560.         ;=====================================================================
  561.         (set key (askstring (prompt #ask-count-key)
  562.                             (help   #ask-count-key-help)
  563.                             (default "i")
  564.                  )
  565.         )
  566.         (if (<> key "i")
  567.             (tooltype (settooltype "COUNTKEY" key)
  568.                       (dest        (tackon target #NewEdit))
  569.             )
  570.         ) 
  571.         (complete 64)
  572.  
  573.         ;=====================================================================
  574.         ; ask for Date-Key
  575.         ;=====================================================================
  576.         (set key (askstring (prompt #ask-date-key)
  577.                             (help   #ask-date-key-help)
  578.                             (default "d")
  579.                  )
  580.         )
  581.         (if (<> key "d")
  582.             (tooltype (settooltype "DATEKEY" key)
  583.                       (dest        (tackon target #NewEdit))
  584.             )
  585.         ) 
  586.         (complete 72)
  587.  
  588.         ;=====================================================================
  589.         ; ask for Time-Key
  590.         ;=====================================================================
  591.         (set key (askstring (prompt #ask-time-key)
  592.                             (help   #ask-time-key-help)
  593.                             (default "t")
  594.                  )
  595.         )
  596.         (if (<> key "t")
  597.             (tooltype (settooltype "TIMEKEY" key)
  598.                       (dest        (tackon target #NewEdit))
  599.             )
  600.         ) 
  601.     )
  602.     )
  603.  
  604.   ); IF user >= 1
  605. )
  606. (complete 80)
  607.  
  608. ;=============================================================================
  609. ; copy the AmigaGuide documentation
  610. ;=============================================================================
  611. (set target (tackon "Help:" @language))
  612. (if (NOT (exists target (noreq)))
  613.     (set target "Help:")
  614. )
  615. (if (= @language "deutsch") 
  616.    (set guide "NewEdit_Deutsch.guide")
  617.    (set guide "NewEdit.guide")
  618. )
  619. (copyfiles (prompt  #ask-guidedir)
  620.            (help    #ask-guidedir-help)
  621.            (confirm "average")
  622.            (source  guide)
  623.            (dest    target)
  624.            (infos)
  625. )
  626. (complete 90)
  627.  
  628. ;=============================================================================
  629. ; eventually copy the calculus.library
  630. ;=============================================================================
  631. (copylib (prompt  #ask-libsdir)
  632.          (help    #ask-libsdir-help)
  633.          (confirm "average")
  634.          (source  "libs/calculus.library")
  635.          (dest    "Libs:")
  636. )
  637. (complete 100)
  638.  
  639. ; **************************************************************************
  640. ; **************************************************************************
  641. ; **************************************************************************
  642. (exit)
  643.